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LL IIIIII SSSSSSSS 

LL IIII] SSSSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 
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~SEP=1984 


MEMORY MANAGEMENT SERVICES TEST #7 


-TITLE M™ prayer - TEST MMG SERVICES WITH LOW PGFLQUOTA 
IDENT ‘V04-000' 


—MPARRBRAARARAAAAAAALARELALALALESEAA AREAS SESE RAE R ARERR SERS E SERA RRA SALE LESS SE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

3* ALL RIGHTS RESERVED. 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Fannestungee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. ete e@e Ge . = e@e Ge . 
@aeneenenenennnennnennnnne 
ae eeneneneeee een nenneennennnen 
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FARRAR AAA AERA AAA AAA AAA AAA AAA AERA AAA AEAEAAAAAAAAR ARERR A AAAS 


++ 

; FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 

; ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 
; ENVIRONMENT: USER MODE DIAGNOSTIC 


OOOO OSCOCSOSOSOSOSOSOSOSOSOOOSOOOOOOSOOOOOOOOOOOOOOoO 


Bh 8888 hh SS SS SS SRS SS SS SS SS SS SS SSS SS SS OSS 
SOSOSCSCSCOSOOSOOOOOOSOOOOSCOSOSOOSOSOOOOOOOOOCOOOOOOOOOOOOOSOoOO 
SOOCOOCOCOOCOOSOSOSOSOOSOSSOSOSSSOSOCSOOCOSCOSOCOOCOCOOOOOOOOOOOOOOoOO 
SODWNAOUNE WN 9 OD NA UE WIN SO OD NAME WIN $$ O OD NAU EW OOONOU ES Win 


DE EBA PLE EF PAWN NII WIWIRDIPINIPINPIPINININ 2 2 OO oe Oe Oe es 


: AUTHOR: PETER H. LIPMAN , CREATION DATE: 6-JAN-77 

: MODIFIED BY: 
0 ; v02-012 $HZ0008 Stephen Zalewski | 20-Aug-1980. 
0 3 Added further tests to system services testeu in this 
3 ; program. Also incorporated program into MMG test 
S : package. 
0 : v02-012 T$C0007 Tom Clark 25-Jul-1980. 
0 } Added further tests to system services tested in this 
3 § program. 


as 
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.SBTTL DECLARATIONS 

; INCLUDE FILES: 

‘ .SBTTL MACROS 


~ 
bee 
oo 


ST 
ARA 


-ENDM WRITE 


.MACRO NOREAD $1Z=#1,ADR=(R2),?L1 
iFNORD <SI12>,<ADR>,L4 

MOVAL WANOREADERR.R1 

BSBW  PROBERR 


-ENDM NOREAD 


Als 


3; MACROS: 

0 «MACRO LIST 

0 «LIST MEB 

3 ‘ LIST 

0 -MACRO WNLIST 

0 -NLIST MEB 

-ENDM = NLIST 

0 eMACRO READ S$1Z=#1,ADR=(R2),7L1,?L2 
0 IFNORD <S$1Z>,<ADR>,L1 
0 BRB L2 

0 L1: MOVAL W*READERR,R1 

0 BSBW PROBERR 

0 L2: 

-ENDM READ 

0 eMACRO WRITE SI1Z=#1,ADR=(R2),7L1,?7L2 
0 IFNOWRT <S1Z>,<ADR>,L1 
0 BRS L 

0 Li: MOVAL W‘“WRITERR,R1 

0 BSBW PROBERR 

0 L2: 

0 

0 

0 

0 

0 

0 

o 


«MACRO NOWRITE SIZ=#1,ADR=(R2),?L1 
IFNOWRT <SIZ>,<ADR>,L1 

MOVAL W*NOWRITERR.R1 

BSBW  PROBERR 


-ENDM NOWRITE 
eaceo ADJWSL PAGCNT,LIMIT=#0,WSETLM,STATUS=S*#SS$_NORMAL 


SDOOSOSOSOSOOOSOOOSOSOSOSOSOOSOOSOOSSOOSOOOSOSOOOSOSOSOOOOSOSO 


EWN SO OOONAU EWN © OD NAME WN 0 ODNAUE WN O OONAUE Uy 


COOOSSCOGMOOOOCOOOSOOSOOOSOSOOOSOSOSOOSOOSOSOOOOSOOOSOSOO 


COOCOooooooooooo 


: W 
“IF DIF, <LIMIT>,<#0> 
MOVAL W*WRKSETLIM.RO 


CLRL sR 


OOoOoooooo 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSoSSSSOooOSCOo SOOO OOOOOCOSSS 


DBDOODOOOOOOO OOOO OO OO O09 09 09.09 69 09 09 09 09 09 SII NINN NS NNN NIP PAA AAA A AA MMIII 


SOOoOoOooOoOOooOoOoOoSoo 


a a a 
CONAOUSE WO O00 
=z 
o 
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Soooo 
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0 109 FF 
110 MOVAL WSETLM,R6 
11 BSBW  ADJWSLSUBR 
0 118 NLIST 
2) 114 .ENDM = ADJWSL | 
116 .MACRO EXPREG PAGCNT,REGION=#0,STATUS=S*#SS$_NORMAL ,- 
00 11 RETADR=W*RETRANGE 
0 118 LIST 
0 11 MOVZWL STATUS,R3 
00 1 : MOVL  PAGCNT.R4 
0 1 MOVAL RETADR.R1 
0000 1 : IF 1DN, <REGION>, <#0> 
$8818 ‘ee 
909 3 HOVE REGION,RS 
$000 127 BSBW  EXPREGSUBR 
0000 128 NLIST 
900 ; .ENDM  EXPREG 
0000 131 .MACRO CNTREG PAGCNT,REGION=40,STATUS=S“*#SS$_NORMAL , - 
9009 13 ae RETADR=W*RETRANGE 
0000 134 MOVZWL STATUS,R3 
0000 135 MOVL  PAGCNT.R& 
0000 136 MOVAL  RETADR.R1 
0000 137 IF 1DN, <REGION>, <#0> 
$000 139 " 
831 1S nai 
0000 148 BSBW  § CNTREGSUBR 
0000 14 NLIST 
9000 144 .ENDM = CNTREG 
0000 146 .MACRO LKWSET STARTVA,ENDVA, STATUS=S“#SS$_WASCLR,- 
44 17 vm INADR=W* INRANGE , RE TADR=W“RE TRANGE 
000 149 IF NB, STARTVA 
00 130 MOVE STARTVA, W* INRANGE 
09 138 “IF NB, ENDVA 
1 MOVL ENDVA,W*INRANGE+4 
000 154 .ENDC | 
90 155 MOVZWL STATUS,R3 
136 MOVAL  INADR,RO 
000 15 VAL RETADR,R1 | 
0 138 BSBW  LKWSETSUBR 
0 15 NLIST 
00 160 .ENDM = LKWSET | 
16¢ .MACRO ULWSET STARTVA,ENDVA, STATUS=S°#SS$_WASSET, = 
0 16 INADR=W* INRANGE , RE TADR=W*RE TRANGE 
0 164 LIST 
000 165 IF NB, STARTVA | 
| 
| 


B 14 | 
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MOVL STARTVA,W* INRANGE 


e NB, ENDVA 
ROVE ENOVA,W* INRANGE +4 
MOVZ2WL STATUS,R3 
MOVAL INADR,RO 
MOVAL RETADR,R1 
SBW = ULWSETSUBR 
NLIST 
.ENDM = ULWSET | 


MACRO CRETVA STARTVA,ENDVA,STATUS=S“4SS$_NORMAL, = 
INADR=W* INRANGE , RE TADR=W“RETRANGE 


OOOQDQOOCQOCOOOOoOOooOoO 


ole lolol ole la lolol ololeleleoleololo) 


SOCOCCOCOCOCOOCOOCOOOOOOCOOOOOOoOOoO 
SOOoOQCOOCOCOoOoOoOooSoo 


LIST 
~ENDM = DELTVA 


16 
167 
i 
170 
193 
198 
174 
i 
177 
179 
180 LIST 
181 IF NB, STARTVA 
00 136 MOVL STARTVA,W* INRANGE 
000 18 -ENDC 
000 184 IF NB,ENDVA 
000 185 HOV. ENOVA,W* INRANGE +4 
000 187 MOVZWL STATUS,R3 
000 188 MOVAL INADR,RO 
000 189 MOVAL RETADR,R1 
000 190 SBW CRETVASUBR 
000 191 NLIST 
44 136 -ENDM CRETVA 
0000 19G see eee eee eee eee AeA A AAT AA AAAAAAAA AAA AAAAAAAARAAAAAAAAAAAARE KARA KATE Ee 
0000 195 ; THIS MACRO DELETES THE CURRENT VA ADDRESSES. ALSO HIDDEN IN THIS 
0000 196 ; MACRO IS A_TEST TO SEE IF A DELETE GLOBAL SECTION MUST ALSO B 
0000 197 ; NVOKED. THIS OCCURS DURING THE SECOND AND THIRD RUNS OF THE TEST 
0000 198 ; PROGRAM WHEN GLOBAL SECTION MAPPING AND PFN MAPPING ARE USED. 
4 1) PRR AR AREA AAA AAA AAA AAA AAA AAA AAA AAA AAA ARATE AAA AA AAA A TAKA AAA e eee ee 
0000 201 ; «MACRO DELTVA STARTVA,ENDVA, STATUS=S*#SS$_NORMAL ,- 
aia soe ¥"e INADR=W* INRANGE ,RETADR=W*RETRANGE , 7L1 
0000 $0 CMPW W*WHICHRUN, #RUN1 ; IF USING MAPPED SECTIONS FOR TESTS, 
44 soe oe t ;DELETE SECTION AND THEN DC A DELTVA 
44 4 3 ~GSDNAM=<W*GBL SE CNAM> 
9009 209 IF NB, STARTVA 
0 10 MOVL = STARTVA,W* INRANGE 
4 11 -ENDC 
8 \¢ IF NB ,ENDVA 
909 3! MOVL ENDVA,W* INRANGE +4 
14 -ENDC : 
15 MOVZWL STATUS,R3 ‘ 
18 MOVAL INADR,RO 
00 1 MOVAL RETADR,R1 
33 38 
Bi 
2 


| 
BSBWY = DELTVASUBR 
| 


$$$ ____, rc 
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8 3 pUenaGutenqucseerstecsserasreseoesoossoseesorsounreeyevesesesosoooonesceees 
4; THiS MACRO USED TO rig ne ane bee GLOBAL SECTIONS. THE FILE NAME 
5 3 AND GBL ec ION DEVICE NA DECLARED INDEPENDANTLY OF THI MACRO 
§ : ie PUSHED ONTO THE STACK MANUALY BEFORE THE SCRMPSC SERVICE IS 
8 ; ALSO NOTE THE St a FIX LOCATED AT THE a OF THE MACRO. THE 
; FIX IS NEEDED BECAUSE THE LAST a OBAL SECTION MAY NOT HAVE eeee DELETED 
0; BY THE TIME THE NEXT MAPPED SECTION IS EREATED IN THI SE THE 
1s RETURNED ERROR IS TRAPPED .- THE SECTION IS ee UNTIL TH 
§ ; SUCCESS CODE IS gS THIS BUG IS SLATED TO BE FIXED. WHEN 
000 ; 1S ACCOMPLISH EFER TO THE eres sry bh: THE FIX TO DETERMINE Ghat 
4; LINES SHOULD BE REMOVED TO DELETE THE PATCH 
44 $2 3 ITITIITETITITITTISIITILITITITTITITITTi Titi iii ti itt t titi it titi tt iit iti 
o 3 
0000 $i «MACRO CREMAPSEC - 
4 8 STARTVA e* 
000 39 .- 
0000 40 STATUS 
0000 41 INADR=<W* INRAN GES, - ; INPUT RANGE 
0000 4g RETADR=<u*RETRANGE> 7 RETURN RANGE 
0000 4 LAGS=#0 sSECTION FLAGS 
0000 4G GSDNAR=<W"GBL SECKAM>, - fhe SECTION NAME 
0000 45 RELPAG=# TRELA f+ E PAGE 
0000 46 FILNAM=<W*F ILENAME>, - SFILE N AME 
9000 47 PAGCNT=#0 * :MAX SIZE OF SECTION 
0000 48 VBN=#0 a” ‘STARTING WIRT BLK NO. IN FILE 
0000 49 7L1 
0000 50 LIST 
0000 51 IF NB,STA 
0000 2g MOVL ST ARTVA UA INRANGE 
0000 5 -ENDC 
0000 54 4, NB,ENDVA 
0000 55 MOVL ENDVA,W* INRANGE +4 
0000 56 -ENDC 
0000 57 MOVZWL STATUS,R3 
0000 58 L1: 
0000 59 PUSHL N 
444 60 PUSHL PAGCNT 
000 261 SPUSHADR F ILNAM 
0000 ¢ PUSHL  RELPAG 
0000 6 SPUSHADR GSDNAM 
4 64 PUSHL FLAGS 
00 65 A se RETADR 
4 66 SPUSHAD INADR 
6 CALLS Rs. LIBS_CREMAPSEC 
00 68 ;eeeeree 
000 69 SIN ORDER TO DELTE THE PATCH MENTIONED ABOVE SIMPLY REMOVE THE LINES FROM 
B05 oO SHERE TO THE NEXT SET OF ASTERICS. 
44 Le: CMPL #*X1828A,R0 s1F PREVIOUS GBL SECTION HASN'T 
000 7 BEQL L1 ;BEEN DELETED TRY CREMAPSEC AGAIN. 
4 74 peeenere 
000 75 MOVAL W*CRMPSCERR,R1 
4 7 BSBW CHECK1 
7 NLIST 
4 -ENDM CREMAPSEC 


= TES 
MACRO 


SOOCOCOCOOCOOCOCOCSOOCOOOSOOSOOOSOOOOOOOOOOCoOoO 


ooo 
Sos 
OOCOCCOOGOOCOCOGO COCO COSCO S COSCO OCS O COC OCOOOCOCOOCOOOOOOOOOOCOooO 


Sooooooooo 
SOOooCooooooo 


OOOCOOCOCOOOOoOoOoOoOoOoSooo 


Sooooooooco 
Soooooooo 


Soooooooo 


WAIAINAAINANIN AINA N AAI NAINA no nonononononononononononoronororononn 


WIAA A.A NAAN ANAAAAA 


——" DOOGD9OGDO000 0000000000000 00 C0 00 00 0D 09 0D 0D 


FWD O ODNAUE WIN 0 OD NAUE WN 0 OD NAME WN 9 ODNAUS WN Oo 
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“SEP=19 MMGTST.SRCJMMGXQUOTA.MAR; 1 


eee eee THIS MACRO 1§ USED TO DETERMINE WHETHER THE MAKEVA SHOULD BE. 


Cc 
— 
oe 


fa 
— 
oO 


L20: 


L30: 


L2: 


-a#aeerne 


SIN ORDER TO REMOVE THE TEMPORARY F 


THIS MACRO IS USED TO DETERMINE pHHETHER THE MAKEVA SHOULD BE 

TRANSLATED INTO A $SCRETVA, A $CRMPSC USING GLOBLAL SECTIONS, 

OR A $CRMPSC USING PFN RAPPING. THE DECISION 1S BASED UPON WHICH 
LSO NOT FIX THAT WAS APPLIED TO SCRMPSC MACRO LOCATED 


H oF R N TH F_TH U THE 
FIXED AREA TO FIND OUT WHAT MUST BE DELETED IN ORDER TO GET RID 
OF THE TEMPORARY PATCH. 


MARAE RABALALALALLAALALALEAA EASE A RARER ARREARS RR ALA RRA RAR AR RA ARR ARRAS SERS A DSS 


»MACRO MAKEVA STARTVA tahoe »STAT=S*#SS$_NORMAL , 7L1,?L2,7L10,?L20,- 
7L30,7L4 


LIST 
CASEL W*WHICHRUN, #1, #RUNMAX 


«WORD L10-L1 c1F FIR 

«WORD L20-L1 IF aco USE GBL CREMAPSEC 
-WORD L50-L1 :IF THIR 

CRETVA STARTVA,ENDVA,STATUS=STAT 

BRW L40 


CREMAPSEC STARTVA, ENDVA,STATUS=STAT 
FLAGS=# <SECSM_ GBL!SECSM_ PERM! SECSM_ DZRO! SECSM_WRT>,=- 


LIST 


PAGCNT=AD 
LIST 
BRW L40 
IF NB, STARTVA 
MOVL STARTVA, UA INRANGE 
.ENDC 
“IF NB, ENDVA 
HOVE ENDVA,W* INRANGE +4 
nov EOL STAT,R3 
SCRMPSC_S 


INADR=<W* INRANGE>,- 
RE TADR=<W*“RETRANGE> ,- 
GSDNAM=<W*GBLSECNAM> , - 


VBN=40,- 
FLAGS hcSECSM_ GBL ! SECSM_PERM! SECSM_PFNMAP! SECSM_WRT>,- 


EXPLAINED ABOVE REMOVE THE LINES 


Ix 
STARTING FROM HERE AND EXTENDING THE THE NEXT SET OF ASTERICS. 


peeeee 


CMPL #*X1828A,R0 : IF PREVIOUS GBL SECTION HASN'T 


BEQL L2 :BEEN DELETED TRY CREMAPSEC AGAIN. 


MOVAL W*CRMPSCERR,R1 
BSBW CHECK1 


i 


— 


Ss 
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COOCOCOCCOOCOOOOOOOOCOOOOOOOOCOO 


SOOOGSCOOCOOCSCCOCOOSOOOOOOOOOOOOOOOOOoOO 


AWNWIAAAAWAAAANAAAAAAN ANA AANA 


DPD DADA ADD BB BEE EEA 
CNAME WN $C OONAUES WN OOONOULS WO OOon 


-ENDM = MAKEVA 
oC RANGECHK ONOROFF 


IF IDN <ONOROFF>,<OFF> 
LFF BICL #CTLSM_RNGCHK ,W*CTLFLG 


BISL #CTLSM_RNGCHK ,W*CTLFLG 
-ENDC 
NLIST 
~-ENDM RANGECHK 


: EQUATED SYMBOLS: 


SSECDEF 

SSSDEF 

SPRIDEF 

$GBLINI 

$VIELD CTL,0,<- ;DEFINE CONTROL BITS IN R3 
<MEMLOOP, ,MASK>,= ;LOOP IN MEMORY WRITE LOOP 
<TSTLOOP, ,MASK>,= ;REDO ENTIRE TEST FROM TOP 
<PIDMSG, ,MASK>,= PUT PROCESS ID IN EACH TYPEOUT 

: <RNGCHK, ,MASK>= 3ON IF CHECKING RETURN RANGE 

PRT$C_NONE=184 

RUN2=2 

RUN1=1 

RUNMAX=3 


; OWN STORAGE: 


$F AB FAC=PUT, FNA=QUTNAMADR, sispcitneacaas 1 ;FAB FOR OUTPUT 
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70 «SBTTL DATA STORAGE AND MESSAGE STRINGS | 
0000 71 -PSECT DATAO,PAGE,WRT,NOEXE 
if INRANGE : 
00000008 7 -BLKL 2 
0 74 RETRANGE: 
99000010 0 75 -BLKL 2 
0000000 1 id: CTLFLG: LONG CTLSM_TSTLOOP!CTLSM_PIDMSG 
0000001 14 377 SAVEND: .BLKL 1 
0000001 a. 1 LAST BYTE ADDRESS IN PO SPACE 
00000020 001 0 PID: *BLKL 1 ‘PROCESS ID 
0 1 MAXPASSCNT: 
00000003 : , 3 :NUMBER OF PASSES TO RUN 
024 383 PASSCNT: 
00000028 0024 84 .BLKL 1 :PASS COUNTER 
0 $ 5 MAXWHICHRUN: 
00000003 00 S , x :NUMBER OF RUNS 
02C 87 WHICHRUN: 
00000030 002c 388 : 1 sWHICH RUN COUNTER 
030 389 WRKSETLIM: 
00000034 30 90 ¢ 1 yRETURNED NEW WORKING SET LIMIT 
034 391 WRKSETDEF: 
0000004c 0034 36 BL 4 :DEFAULT, MAX, MIN WORKING SET LIMIT 
0000003C 004c 39 WRK SE TMAX=WRKSETDEF +8 
00000044 004C 394 WRKSETMIN=WRKSETDEF +16 
4C 395 WRKSETMAXADD: 
00000050 004C 396 .BLKL 1 ; WRK SE TMAX-WRKSE TDEF 
50 97 PREVPROT: 
50 98 FAB: F 
AO 399 RAB:  $RAB  FAB=FAB ECORD ACCESS BLOCK FOR OUTPUT 
000000E8 E4 400 MSGLEN: .BLKL 1 sRETURN LENGTH FROM FAO 
00000106" 000000A0' < rtf m——- MSGBUF SIZ ,MSGBUF sMESSAGE BUFFER DESCRIPTOR 
00000102'00000004" a 408 .LONG MSGBUF-PIDMSG,PIDMSG 
FS 405 : #ee#e DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 
F8 407 MSGBUF ID: 
OA OD OOF8 408 CRLF: .BYTE *015,*012 
20 53 53 45 43 4F 32 50 OOFA 409 “ASCII SPROCESS $ 
20 20 20 20 0102 410 PIDMSG: :ASCI! $ $ 
000001A6 0106 411 MSGBUF: .8LKB 160 :MESSAGE BUFFER USED BY FAO 
000000A0 1A6 41g MSGBUF $1Z=.-MSGBUF 
1A6 414 : ###ee DO NOT SEPARATE OR REORDER THE PRECEEDING LINES 
1A6 416 
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voe-000 DATA STORAGE AND MESSAGE STRINGS’ ”  'S=SEb=19RC OisSB:37 EMmGver.caelamexcusca.man;1 2% 18, 
rE } STRING DESCRIPTORS 
SF 4 ALIGN LONG 
$3 § CRETVAERR: 
0000000A'00000063 06 wL CRETVAERRSIZ, CRETVAERRADR 
0000006D ' 00000063 $0 33 ca DELTVAERRSIZ,DELTVAERRADR 
000001F 900000072 3 i ciel CNTREGERRSIZ,CNTREGERRADR 
00000000"00000063 061 43 KPREGERAL ONG  CRMPSCERRSIZ. CRMPSCERRADR 
00000268'00000072 06 1, ge EXPREGERRSIZ,EXPREGERRADR 
00000133°00000063 8s $4) musetendce™ LKWSETERRSIZ,LKWSETERRADR 
00000196" 00000063 06 208 cs ERALONG  ULWSETERRSIZ.ULWSETERRADR 
00000200"00000068 0638 351 ceil ADJWSLERRS1Z, ADJWSLERRADR 
00000345"0000004E 0640 338 READERR: LONG WSETLMCTLSIZ,WSETLMCTLADR 
00000393'00000021 0648 33 NOREADERRON® READERRSIZ.READERRADR 
00000384 "00000024 0680 a cated NOREADERRS1Z,NOREADERRADR 
0000038"00000022 0658 359 omichtall WRITERRSIZ,WRITERRADR 
000003FA'00000025 o660 S61 : NOWRITERRSIZ,NOWRITERRADR 
0000041F ‘o000007F bees s omen: MEMLOOPCTLS1Z,MEMLOOPCTLADR 
0000049 '0000004F 0870 gg RANGERR: ONG RANGERRSIZ,RANGERRADR 
000604ED' 00000039 0678 567 vont usg:t™® I1DMSGS1Z, IDMSGADR 
00000526 "00000043 a 369 aun2 wscit on RUN1_MSGS1Z,RUN1_MSGADR 
00000569" 00000044 ess 14 aun3 screen RUN2_MSGS1Z,RUN2_MSGADR 
000005AD '0000003E 5 378 aii «LONG RUN3_MSGSIZ,RUN3_MSGADR 
000005EB"00000003 069 13 a secwantON® PEDCTLSIZ.PIDCTLADR 
000005€E '00000006 st 7 FILENAME ;EON®  GBLSECNAMSIZ.GBLSECNAMADR 
000005F4*0000000 06A8 379 .LONG FILENAMESIZ,F ILENAMEADR 
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FRR AA AAA AA AREER AE RAE AEA AAA AAEAAAAAAAAAAAAAAREAAAAAAAAAAAEREARAAAAATEES 


+PROGRAM DESCRIPTION: 


THIS PROGRAM TESTS THE FOLLOWING SYSTEM SERVICES: 
SCRETVA, SEXPREG 


M_ SERVICES ARE aoe IN Me | FOLLOWING MANNER. THE PROGRAM 
MAK “\ Ay RA Rune. e EACH_RUN MAKES THREE PASSES. ON 
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SO APPLICABLE W 
HESE RUNS A_MES 
ERATOR AS TO WH 
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yo MASDS: CMMGTST.COMJMMGTST.RAP FOR FURTHER INFORMATION 
ED 


tab mm OGOe-zrZz- 


0 
INFOR 
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JUST HOW COMPLETELY THE ABOVE MENTIONED SYSTEM SERVICES 
BY THIS PROGRAM. 


THERE IS A BUG IN SCRMPSC THAT WILL BE FIXED IN THE FUTURE. UNTIL 
THIS FIX TAKES PLACE Mg re Soe ys yt PATCH'S L tlt THE END 


0 a 
THE FILE MMGTST.DAT, WHICH IS CREATED BY RUNNING MMGCRTFIL.MAR, 
IS ANECESSARY TO RUN THIS PROGRAM AS IT IS REFERENCED BY CREMAPSEC. 


*PRIVILEGES: 
IN ORDER TO RUN THIS any s+ YOU MUST HAVE IN YOUR POSSESION 
THE PRIVILEGES PRMGBL AND PFNMAP. 


j eeeneneeeeeereeeeeeeeeenereeeeaaeennnenteneenenenneeneenneneeeenntenteeeeet 
START HERE 
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START: 0 SENTRY MASK 
Patti W*FAB [OPEN THE FILE ‘$OUTPUT’ 
LBC RO, 108 ‘BRANCH IF ERROR 
tenes" w*RAB SCONNECT THE RECORD ACCESS BLOCK 


10$: XIT_S RO sEXIT WITH STATUS IN RO 
20$: SRESURE_§ PID, SET UP PROCESS ID 
$SFAO_S PIDCTL, BSGLEN. PIDMSGD ,RO INIT THE PROCESS ID STRING 
CLRL™ WHICHRUN INIT THE RUN COUNT TO ZERO 
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MAIN_PROGRAM: 
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: THIS COUNTER IS USED TO DETERMINE WHICH CRMPSC IS TO BE 

: REFERENCED, OR IF THE CRETVA IS TO BE USED, WHEN A MAKEVA 
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v04-000 INITIALIZATION ~SEP-1984 84:93:33 ERMGTST. SRE IMMCXGUOTA. MARS 1 * 
70B 639; 1S ENCOUNTERED. 
4 : rk FRA AA AAA AERA AERA AREA AAAAAAAAAAAAAAAAAAEAAARAAAEAAAAEAAAAAEAEAEEEEAAE ES 
0024'CF 01 09 ? 43 MOVL #1,W*PASSCNT s INITIALIZE THE PASS COUNT 
Oc OO2C'CF OO2B'CF F 4 43 AOBLEQ W*MAXWHICHRUN, W“WHI CHRUN, PRESTART 
71 645 END: 
50 01 9A 071 G46 MOVZBL_ #SS$_NORMAL RO 
718 e SEXIT_S RO 
724 rk PRESTART: 
03 01 002C'CF CF ose $29 L50 CASEL W*WHICHRUN, #1, #RUNMAX 
0006" 072A 63¢ "WORD ss CRETVA NESSAGE-L50 ;FOR EACH RUN PRINT MESSAGE 
0022" O72c 65 “WORD GBL_SEC_MESSAGE-L50 SDESCRIBING WHICH VA SPACE 
0043" ? 5 634 “WORD PFNMAP_MESSAGE-L50 [1S BEING USED. 
a7 636 CRETVA_MESSAGE : 
7 65 $FAO_S RUN1_MSG,MSGLEN,MSGBUFD 
O3F5 30 0747 658 BSBW” TYPEMSGBUF 
40 11 O74 639 BRB START 
074C 661 GBL_SEC_MESSAGE: 
0010°CF 04 CB O74C 66¢ BIS #CTLSM_PIDMSG,W*CTLFLG sALLOW PROCESS ID TO PRINT 
0751 66 $FAO_S RUN2_MSG,MSGLEN,MSGBUFD 
0304 30 0768 664 BSBW” TYPEMSGBUF 
1F OT 0768 665 BRB RSTART 
076D 667 PFNMAP_MESSAGE: 
0010'CF 04 CB 076D 668 BISL | #CTLSM_PIDMSG,W°CTLFLG sALLOW PROCESS ID TO PRINT 
0772 669 $FAO_S RUN3_MSG,MSGLEN,MSGBUF D 
0383 30 0789 670 BSBW” TYPEMSGBUF 
4 ; re RSTART: 
Oree o78 ” RANGECHK ON 
0010'CF 08 cB 078 ISL #CTLSM_RNGCHK,W°CTLFLG 
OO10'CF 04 CA 0791 674 BICL  #CTLSM_PIDMSG,Q*CTLFLG ;STOP PROCESS ID FROM PRINTING 
0796 675 SFAO_S IDMSG,ASGLEN,MSGBUFD,PASSCNT 
0389 30 78 676 BSN TYPEMSGBUF 
fog ss ie al aman 
51 0008" CF DE 7a HOVAL W°RETRANGE .RI 
0223 0 07¢3 BSBW EXPREGSUBR 
52. 0008'CF 7D 0706 678 MOVQ  WARETRANGE,R 
9000 cE 32 7D O07(B 679 MOV RZ We INRANGE 
O14'CF 52 00 2p 680 MOVE R2.W*SAVEND 
01 002c'CF 81 705 CMPW = W“WHICHRUN, ARUN1 s1F USING MAPPED SECTIONS FOR TESTS, 
OF 5 O7DA LEQ 30000$ [DELETE SECTION AND THEN DO A DELTVA 
0 pd O70C PUSHL @ 
FEBE if rr re PUSHAQ W* GBL SECNAM 
00000000 ' GF 5 FB Ze tis CALLS 58. G*sysspGaisc 
53 01 «3¢ O7EB : MOVZWL S*#SS$_NORMAL,R3 


} 
(ence 
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MMGXQUOTA - TEST MMG SERVICES WITH LOW PGFLQUOTA 16-SEP-1984 02: 5:45 VAX/ViKS Macro V04-00 Page 17 
y0e- 000 FORCE ERRORS IN CRETVA -SEP-1984 01:58:27 CMMGTST.SRCIMMGXQUOTA.MAR; 1 (7) 
TER 68S ~SBTTL FORCE ERRORS IN CRETVA 
a é 5 : FORCE ERRORS FROM CRETVA 
7FB 6 3 PITTIIIIIIITII ITI T TIT T IL TITITitititititititiiiiiiiiiiitiiiiiiti iti tit tii 
7FB Ob 0 : THIS MAKEVA IS NOT AVAILABLE FOR THE SECOND RUN, WHEN PERM 
7FB 4691: GLOBAL SECTIONS ARE USED, AS IN ORDER FOR THE EXPECTED ERROR TO 
7FB 63¢ ; BE RETURNED THE PAGES MUST BE CRF AND SINCE SHARED MEMORY TESTING 
7FB C693: 1S POSSIBLE WITH THIS TEST (AND CRF IS NOT PERMITTED WITH SHARED 
7FB 694 : MEMORY) THIS SECTION WAS BYPASSED FOR THAT REASON. 
pe 695 FRARAAAAA AAA ATER A AAA AA AAEAAAAAAAARAAAAAAEARAARAAA REAR RERAEAAE ERATE 
FB 696; 
Oz O02c'cF 81 O7FB £39 CMPW 3s W*WHICHRUN, ARUNZ 
63 iF 0800 698 BNEQ 
OOF2 31 080 $99 BRW REROUTE 
aes 
0805 702 MAKEVA W*SAVEND,#1830-1,#SS$_EXQUOTA ;EXCEED PAGE FILE QUOTA 
03 01 OO2C'CF CF 0805 aeeas CASEL W°WHICHRUN.#1 , #RUNMAX 
0006" 0808 .WORD 30003$-30001$ :1F FIRST RUN USE CRETVA. 
0029" 080D “WORD 30004$-30001$ [IF SECOND USE GBL CREMAPSEC 
0073° O80F sean “WORD 30005$-30001$ [IF THIRD USE PFN MAPPING 
Q0000'CF 0014°CF DO 0811 MOVL  W*SAVEND,W* INRANGE 
0004°CF S3FFFFFFF 8F DO 0818 MOVL  #1830-1,W*INRANGE+4 
53 1¢)0«03C) (0821 MOVZWL #SS3_EXQUOTA,R3 
50 O000'CF DE 0824 MOVAL  W*INRANGE,RO 
51 Q0008'CF DE 0829 MOVAL W*RETRANGE,R1 
0115 30 O82E BSBW  _CRETVASUBR 
0096 31 «0831 BRW 30006$ 
0834 30004$: 
Q000'CF O014'CF DO 0834 MOVL  W*SAVEND,W* INRANGE 
0006'CF 3FFFFFFF 8F DO 0838 MOVL #1830-1,W*INRANGE+4 
53 1C) | «03C (0844 MOVZWL #SS$_EXQUOTA,R3 
0847 30007$: 
00 DD 0847 PUSHL #0 
19 DD 0849 PUSHL #25 
FESO CF «DF)=«(084B PUSHAL W*F ILENAME 
00 DD O84F PUSHL #0 
FEGB CF ODF 0851 PUSHAL W*°GBLSECNAM 
00004000 8F 0D 0855 PUSHL  #<SECSM_GBL!SECSM_PERM! SECSM_DZRO! SECSM_WRT> 
QO08'CF DF 0858 PUSHAL W*RETRANGE 
0000'CE OF Bor PUSHAL W*INRANGE 
00000000'EF 08 FB 0863 CALLS #8. 18S CREMAPSEC 
50 0001828A BF 01 BGA CMPL =: #*K 18 28K, RO :IF PREVIOUS GBL SECTION HASN'T 
D4 13 «0871 BEQL ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
51 FDA! CF ; 73 MOVAL W*CRMPSCERR,R1 
0119 73 BSBW H 
004c 31 0878 BRW 30006$ 
7E 300058: 
"CF §«60014"CF v0 ze MOVL W*SAVEND,W* INRANGE 
0004'CF  3FFFFFFF 8F p0 8 MOVL  #1830-1,W*INRANGE+4 
ee eS E MOVZWL #SS$_EXQUOTA,R3 
91 30002$: 
7E =7C 0 91 CLRQ 2s = (SP) 
00 DD 0893 PUSHL #0 
| 
| 


¢ 15 | 


- TEST MMG SERVICES WITH LOW PGFLQUOTA 16-SEP-1984 AX/VMS 9 ,V04-00 Page 18 
FORCE ERRORS IN CRETVA eet 1 ge: 93: $3 YAMGT ST MGXQUOTA.MAR; 1 . (7) 
19 po 95 PUSHL 
C 9 MOVZ2WL #0,-(SP) 
DD 9A USHL 
D 089C PUSHL # Mo 
F F 9 PUSHAQ W*GBLSECNAM -- 
4 43 ‘ PUSH #cSECSM_GBL ! SECSH_PERM! SECSM_PFNMAP! SECSH_WRT> mo 
"CF F AA PUSHAQ U RETRANGE MO 
OOO'CE 7F A PUSHAQ wieiGes MO 
00000000 ' GF oc Fa 8 CALLS I ASYSSCANPSC MO 
50 0001828A 8F D1 088 CMPL ;1F PREVIOUS GBL SECTION HASN'T MO 
ae C BEQL ;BEEN DELETED TRY CREMAPSEC AGAIN. MO 
51 FOS? CF CF 3 C MOVAL W*CRMPSCERR,R1 MO 
C BSBW CHECK? MO 
O8CA 30006$: MO 
OOOO'CF O008'CF 7D OBCA 703 mova W*RETRANGE ,W* INRANGE : MO 
08D1 704 DELTVA :DELETE WHAT WE CREATED MO 
01 OO2C'CF B81 08D1 CMPW W*WHICHRUN, #RUN1 zIF USING MAPPED SECTIONS FOR TESTS, MO 
OF 15 08D6 BLEQ 30008$ ;DELETE SECTION AND THEN DO A DELTVA MO 
00 DD O08D8 PUSHL @# MO 
FOC2 CF 7F OB8DA PUSHAQ W*GBLSECNAM MO 
DD ODE PUSHL Ay NP 
00000000'GF 03 FB OBE CALLS #3,G*SYSSDGBLSC MO 
gee? 30008$: SY 
3c 608E7 MOVZWL S*#SS$_NORMAL,R3 LI 
DE O8EA MOVAL W*INRANGE,RO 
E O8EF MOVAL W*RETRANGE,R1 
0 O8F4 BSBW DELTVASUBR 
O8F7 705 
08F7 706 REROUTE: 
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MAGXQUOTA - TEST MMG SERVICES WITH LOW PGFLQUOTA 16-SEP-1984 02:05:45 VAX/VMS Macro V04-00 Page 19 
yee 008 FORCE ERRORS FROM EXPREG g- Sern 19 4 84:93:53 MMGTST.SRCIMMGXQUOTA.MAR:1 9” (8) 
0 £7 708 .SBTTL FORCE ERRORS FROM EXPREG 
Fe aly : FORCE ERRORS FROM EXPREG 
F? 712 EXPREG #1821-1,#0 STATUS=#SSS EXQUOTA ;EXCEED PAGE FILE QUOTA | 
53 1c) O3C. CBF? MOVZWL ‘#S$$_EXQUOTA,R3 
54 OOIFFFFF 8F DO OBFA MOVL  #la2T-1, | 
1 0008" CF DE 301 MOVAL W*RETRANGE,R1 
5 D4 0906 LRL. RS 
OOFE 30 0908 BSBW = EXPREGSUBR 
O000'CF O008'CF 7D 09 713 MOVQ = W*RETRANGE ,W* INRANGE 
091 714 DELTVA ;DELETE WHAT WE CREATED 
01 OO2c'cE 81 091 CMPW = W*°WHICHRUN, #RUN1 [IF USING MAPPED SECTIONS FOR TESTS, 
OF 15 091 BLEQ 30009$ ‘DELETE SECTION AND THEN DO A DELTVA 
00 pp 0919 PUSH. #0 
FD81 CF 7F 0918 PUSHAQ W*GBLSECNAM 
00 DD O91F PUSHL H0 
00000000'GF 03 FB 0921 CALLS #3,G*SYSSDGBLSC 
0928 300098: 
53 01 «3c «(0928 MOVZWL $*#SS$_NORMAL,R3 
50 O000°CF ODE 09¢8 MOVAL  W*INRANGE,RO 
51 Q0008'CF DE 0930 MOVAL W*RETRANGE,R1 
0022 30 0935 BSBW  DELTVASUBR 
0938 715 
0938 716; 
base ats END OF LOOP 
03 0024'CF O020'CF F3 0938 719 AOBLEQ W*MAXPASSCNT,W*PASSCNT, 160$ 
FDCB «31 0940 720 150$: BRW MAIN_PROGRAM 
FE46 31 «0943 «0722 1608: BRW RSTART 
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MMGXQUOTA - TEST MMG SERVICES WIT A 16=SEP=1984 02:05:45 VAX/VMS Macro V04-00 
v04-000 SUBROUTINES TO CALL THE SERVICES green 9 4 94:93:53 ERMGTST. SRE IMMCXQUOTA.MAR: 1 
946 g 4 .SBTTL SUBROUTINES TO CALL THE SERVICES 
$6 726 ; INPUT 
gee 959: 
946 728; RO = INAD 
946 729: R1 = RETAOR 
946 730: R3 = DESIRED STATUS 
946 731: 
946 7 j : OUTPUT: 
ye ae a R2 PRESERVED 
0946 735; 
946 7 : CRETVASUBR: 
0946 7 SCRETVA_S (RO),(R1) 
51 FCA9 cf DE 0953 738 MOVAL “W*CRETVAERR,R1 sERROR CONTROL STRING 
A 11 0958 739 BRB CHECK1 
095A 740; 
095A 741 : INPUT 
095A 14g : 
095A 743: RO = INADR 
095A 744: R1 = RETADR 
095A 745: R3 = DESIRED STATUS 
095A 746: 
095A 747 : OUTPUT: 
095A 748: 
095A 749: R2 PRESERVED 
095A 750; 
095A 751 DELTVASUBR: 
095A 13 SDELTVA_S (RO),(R1) 
51 FCOD CF DE 0967 75 MOVAL “W“DELTVAERR,R1 sERROR CONTROL STRING 
26 «11 «#096C «#8754 BRB CHECK1 
096 755; 
096 756 : INPUT: 
096 757: 
096E 758: RO = 
096 759: R1 = RETADR 
096E 760: R3 = DESIRED STATUS 
096E 761: 
096 762 ; OUTPUT: 
096E 763: 
096E 764: R2 PRESERVED 
096E 765: 
96 766 LKWSETSUBR: 
966 767 SLKWSET_S (RO), (R1) 
51 FCA9 CF DE 0978 768 MOVAL “W“LKWSETERR,R1 TERROR CONTROL STRING 
12 11 0980 69 BRB CHECK1 
98 770 ; 
98 771 ; INPUT: 
9 Ae: : 
9 773 : RO = 
9 774 : R1 = RETADR 
9 775 : R3 = DESIRED STATUS 
98 276 : 
9 777 ; OUTPUT: 
9 178 : 
779 : R2 PRESERVED 
780 ; 
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MMGXQUOTA - TEST MMG SERVICES WITH LOW PGFLQUOTA 16-SEP-1984 02:05:45 VAX/VMS Macro v04-00 Pa 1 
yen 008 SUBROUTINES TO CALL THE SERVICES sett 94:93:33 ERMGT ST. SREIMMCXGUOTA. MAR: 1 mn 3) 
9 : ? 1 ULWSETSUBR: 
9 : SULWSET_S (RO), (R1) 
51 FCOD CF ODE 4 f f F seeeel MOVAL “W*ULWSETERR,R1 ZERROR CONTROL STRING 
53 50 D1 0994 785 CMPL ~—_ RO, R3 :STATUS AS DESIRED 
57 13 0997 «(7 6 BEQL ‘BRANCH IF YES 
530244 af 8 999 ree cHPW f $$_VASFULL.R3 SIF EXPECTING VIRTUAL ADDRESS SPACE 
50 iC 61 O9A0 7 CMPW #SS$_EXQUOTA,RO ;THEN EXCEEDS QUOTA MAY ALSO BE RET 
48 «13 9A £30 hs BEQL 108 ~ gates: 
53 01 B81 O9A5 79 CMPW = #SS$_NORMAL,R3 :1F EXPECTING NORMAL COMPLETION 
o? 12 O9A8 £38 BNEQ 5s$ FOR CRMPSC, THEN GLOBAL SECTION 
50 0619 8F 81 O9AA 794 CMPW = #SS$_CREATED,RO SCREATED MAY BE RETURNED 
3 13 Oar 199 BEQL 108 
54 DD $381 tS S$: PUSHL R4 
54 04 AE DO 0983 798 OVL 4(SP),R4 ZADORESS OF ERROR 
0987 799 SFAO_S (R1),MSGLEN,MSGBUFD,R4,RO,R3,- 
0987 800 INRANGE , INRANGE +4 , RE TRANGE , RE TRANGE +4 
10 BA O9EA 801 POPR #*M<R4> 
0150 30 O9EC 80¢ BSBW  TYPEMSGBUF 
05 O9EF 80 RSB 
O9FO 804 10S: 
OO7F 31 O9F0 805 BRW RANGE CHK :GO CHECK THE RETURN RANGE 
ore 807 ; INPUT: 
O9F3 = 808 : 
O9F3 809 : R1 = RETADR 
O9F3 810: R3 = DESIRED STATUS 
O9F3 811 : R4 = PAGCNT 
O9F 81g : RS = REGION 
OOF 813; 
O9F3 814 : OUTPUT: 
O9F 815 ; 
O9F3 «816: R2 PRESERVED 
O9FS «B17: 
O9F 818 CNTREGSUBR: 
O9F3 819 SCNTREG_S R4,(R1),,R5 
51 FCOA CF DE OAO 820 MOVAL “W°CNTREGERR,R1 sERROR CONTROL STRING 
14 11 OA0 1 BRB CHECK2 
OA09 § 3 
A09 + INPUT: 
A09 4; 
A09 5: R1 = RETADR 
A09 $ ; R3 = DESIRED STATUS 
A09 ; R4 = PAGCNT 
A09 8: R5 = REGION 
AQ9 9; 
A09 0 : OUTPUT: 
AQ09 1: 
A09 : ; R2 PRESERVED 
A09 : 
A09 4 EXPREGSUBR: 
A09 5 SEXPREG_S R4,(R1),,R5 
51 FCO4 CF DE OA18 4 MOVAL “W*EXPREGERR,R1 TERROR CONTROL STRING 
A1D 837 CHECK2: 
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G SERVICES WITH LOW PGFLQUOTA 16-SEP-1984 5:45 VAX/VMS Macro V04-00 Page 22 
ES TO CALL THE SERVICES ety 7 8¢ 93 $3 MMGTST.SRCJMMGXQUOTA.MAR; 1 ” 
38 CMPL RO R3 i STATUS AS DESIRED? 
BEQL =:«10$ ‘BRANCH IF YES 

40 PUSHL R6 

41 MOVL 4(SP),R6 ADDRESS OF ERROR 

4¢ SFAO_S (R1),MSG GLEN MSGBUFD, R6,RO,R3,R4, RS, - 

4 RE TRANCE RE TRAN 

44 POPR #°M< - 

4s BsBW TYPEMSGBUF 

‘3 10$: OV Apes) ree yMAKE INPUT RANGE LOOK LIKE CRETVA/D 

49 ASHL 

50 ADDL3 40 “OF INRANGE W* INRANGE +4 

31 RB RANGE :AND CHECK THE RETURN RANGE 

2g RANGE CHK: 

54 BBC #CTLSV_RNGCHK ,W*CTLFLG,40$ :BRANCH IF RANGE CHECK IS DISABLED 
855 BLBC 4 SIF ERROR IN SERVICE, SKIP THE RANGE 
856 MOVG  W*{NRANGE,RO 'RO = STARVA, R1 = ENDVA 
857 CMPL _— RO, R1 ‘WHICH DIRECTION? 

858 BGTRU 108 ‘BRANCH IF BACKWARDS 

859 BLSSU 5$ ‘BRANCH IF FORW 

B60 BBS #30,R0,10$ ‘FOR EQUAL, PO SPACE FORWARDS, P1 BA 
B6¢ ? REQUESTED RANGE IS FORWARDS 

864 §$: BICW #*X1FF,RO :FROM BYTE 0 OF STARTVA 

865 BISW #*X1FF~R1 : THROUGH LAST BYTE OF ENDVA 

B66 BRB 20$ ; 

B68 : GOING BACKWARDS IN VIRTUAL ADDRESS SPACE 

870 ios: BISW WOXEE, RO ;LAST BYTE OF STARTVA 

71 BICW #*X1FF~R1 i THROUGH FIRST BYTE OF ENDVA 
87¢ 20$: CMPL = RO NUP RE TRANGE [1S THIS WHAT WAS RETURNED? 
87 BNEQ $ [BRANCH IF N R 

74 CMPL = R1,W*°RETRANGE+4 ‘THIS ON ont ? 

75 BEaL © 408 [BRANCH IF YES, RANGE OK 

76 30$:  PUSHL R3 : SAVE REGIST ER 
877 OVL  4(SP),R3 :TO USE FOR ERROR PC 
878 SFAO_S <W*RANGERR>,MSGLEN,MSGBUFD,R3,- : FORMAT THE ERROR MESSAGE 
879 INRANGE , INRANGE +4 ,RETRANGE, Pe ak ANGE +4 

80 POPR “M<R3> :RESTORE SAVE REGISTER 

81 BSBW  TYPEMSGBUF S OUTPUT THE ERROR MESSAGE 

Be 40$: —RSB SAND RETUR 
ass : INPUT 

86 : R3 = DESIRED STATUS 

: R&4 = PAGCNT 
8; RS = DESIRED LIMIT 

89 ; R6 = ADDRESS fo RETURN NEW WORKING SET LIMIT 

91 + OUTPUT: 

38 : R2 PRESERVED 
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MMGXQUOTA - TEST MMG SERVICES WITH LOW PGFLQUOTS 16-SEP-1984 02:05:45 VAX/VMS Macro V04-00 Pa 4 
yO 000 MISCELLANEOUS SUBROUTINES mets 7 ELLER MMGTST.SRCJMMGXQUOTA.MAR; 1 - (4) 
8 F 17 ~SBTTL MISCELLANEOUS SUBROUTINES 
B3F 319 ; TYPE A MESSAGE 
F 920; MSGBUF IS THE ADDRESS OF THE BEGINNING OF THE STRING MO 
8 r 3 1; MSGLEN CONTAINS THE SIZE (IN BYTES) OF THE STRING 3 
B3F 9 Q TYPEMSGBUF : MO 
50 QOS CE dO F 924 MOVL W°MSGLEN,RO :SIZE TO RO MO 
51 O106'CF DE 0844 925 MOVAL W“MSGBUF,R1 sADDRESS TO R1 MO 
08 QO10'CF = =02 ET 0B49 9 $ BC #CTLSV_PLDMSG,W*CTLFLG, 5$ ;BRANCH IF NO PROCESS ID REQUIRED MO 
51 QOFS"CF OD BOF 9 MOVAL wf DR sADDRESS INCLUDING PID MSG 
50 OE’ C B34 3 g - ADDL $*#<MSGBUF -MSGBUF ID>,RO s INCLUDE EXTRA BYTES IN COUNT ne 
OOcs'cCF 51 OD B57 930 MOVL R1,W°RAB+RABSL_RBF ;SET BUFFER ADDRESS MO 
boce ce 50 B80 OBSC 931 MOVW RO,W*RAB+RABSW_RSZ AND MO 
61 9 é $PUT  wW*RAB ‘OUTPUT THE MESSAGE MO 
0150 €9 6c 9 BLBC RO,20$ MO 
. 0870 336 20$ SEXIT $ RO EXIT WOTH ERROR STATUS We 
0B79 936 : 6 MO 
0879 937 ; INPUTS: MO 
0B79 «938; 
0879 «4939: O(SP) = ADDRESS OF ERROR MO 
0879 940; R1 = ADDRESS OF FORMAT CONTROL STRING MO 
0B79 (941; MO 
0B79 949 : OUTPUTS: 
0B79 943; MO 
0B79 «944; R2 PRESERVED MO 
0B79 945 
0B79 946 PROBERR: 
55 DD 0B79 947 PUSHL R5 
55 04 AE DO OB7B 948 MOVL 4(SP),R5S MO 
OB7F 949 SFAO_S (R1),MSGLEN,MSGBUFD,R5 
20 BA 0B96 950 POPR #AM<R5> 
FFAS 30 0898 951 BSBW TYPEMSGBUF 
05 0898 93¢ RSB 
OB9C 3 «95 
0B9C 436-9554 
oB9c §6«955S5 gx 
0B9C 956 ; INPUT: 
0B9C 6-957: 
OB9C 6=«9558 : INRANGE CONTAINS INFINITE RANGE OF ADDRESSES PREVIOUSLY CREATED 
oBp9c «= «959 gk RETRANGE CONTAINS A RANGE OF ADDRESSES 
pB3t ve ; R10 CONTAINS ADDRESS TO STORE THE # OF PAGES SPANNED BY RETRANGE 
OB9C 962 ; OUTPUT: 
0B9C 963; 
¢ 964 : R10 UPDATED TO POINT AT NEXT LONG WORD 
9C 966 MAXPAGLOCK: 
9C (96 LKWSET STATUS=#SS$_LKWSETFUL :LOCK AS MANY AS ALLOWED 
53 0194 BF 3C 9C MOVZWL #SSS_LKWSETFUL,R3 
50 OO00'CF DE OBA! MOVAL W“INRANGE,R 
51 0008'CF p Ab MOVAL W*RETRANGE,R1 
FDCO AB BSBW LKWSETSUBR 
50 oOOc'cF O00B8'CF C AE 968 SUBL3 W*RETRANGE,W“RETRANGE+4 ,RO :NUMBER OF BYTES IN RANGE 
24 «13 6 969 BEQL 20$ sBRANCH IF NONE LOCKED 
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MMGXQUOTA = TEST MMG SERVICES WITH LOW PGFLQUOTA 16-SEP-1984 02:05:45 VAX/VMS Macro V04-00 Page 25 3 
y0e-000 MISCELLANEOUS SUBROUTINES ety 94:03:53 ERMGTST. Re IAMCX XQUOTA.MAR; 1 ’ (9) 
50 50 F7 gf 78 0888 970 ASHL_. #-9,R0,RO ;NUMBER OF PAGES -1 Sy 
BA SO 01 C1 BBD 4 ADDLS 40, (M006 ‘STORE NUMBER OF PAGES — 
0010'CF O08 CA dee BICL #CTLSM RNGCHK ,W*CTLFLG MO 
C6 973 ULWSET INADR=W*RETRANGE UNLOCK THE ONES THAT WERE LOCKED MO 
53 09 «oC 6 MOVZWL S“#SS$_WASSET,R3 MO 
50 O008'CF ODE ¢ MOVAL W*RETRANGE,RO- MO 
51 0008'CF bE BCE MOVAL W*RETRANGE.R1 
FDAC OBD BSBW § ULWSETSUBR 
O0BD6 974 RANGECHK ON 
0010°CF 08 C8 OBD6 BISL #CTLSM_RNGCHK ,W“CTLFLG MO 
05 OBDB 975 
8A D4 OBDC 976 20S: CLRL (R10)+ ;NO PAGES LOCKED 
05 OBDE 977 RSB 
OBDF 978 
OBDF 979 
OBDF 980 ~ END START 


’ 
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MMGXQUOTA = TEST MMG SERVICES WITH LOW PGFLQUOTA 197 5EO- 1384 be: 03: $3 ayes v04-00 Page 48 
Psect synopsis -SEP-1984 01:58: MMGTST.S SMMGXQUOTA. MAR; 1 (10) 


! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 
2 ° 00000000 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC evTe 
SABSS 00000000 ( 8} 4 ( 1.) NOPIC USR CON ABS ~ LCL NOSHR' EXE RD WRT NOVEC BYTE 
DATAO QOOOOTA6 ( 4 -) § ( §:} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
CODE O0000BDF ( 3039.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
i eo 
: Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 18 00:00:00.06 00:00:01.3 
pounend processing 89 sos Be St 00:00:05.45 
s 1 370 00:00:1 § 00:00:42.30 
Synbol table sort 9 00:00:01.28 00:00:04.04 
s 2 20 00:00:03.49 i SBE ES 
ak table output 22 00:00:00.17 Be IT 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 9 00:00:00.00 88? 080-09 
Assembler run totals 71 00:00:19.08 00:01:07.31 


The working set Limit was 1650 pages. 

78987 bytes (155 pages) of virtual memory were used to buffer the intermediate cod 

There were 9 pages of symbol table space allocated to hold 931 non-local and 30 fecad symbols. 
290 source Lines were read in Pass 1, producing 23 object records in Pass 2. 

635 pages of virtual memory were used to define 52 macros. 
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Macro Library name Macros defined 
"$255$DUA28: SYS.OBJJLIB. MLB; 1 1 
“$255$DUA28: SYSLIBJSTARLET. MLB; 2 3 

TOTALS (all libraries) 


1185 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MMGXQUOTA/0BJ=0BJ$:MMGXQUOTA MSRC$:MMGXQUOTA/UPDATE=(ENHS$:MMGXQUOTA) +EXECMLS$/LIB 
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